Муниципальное общеобразовательное учреждение "Лобановская школа" Джанкойского р-на Республики Крым

 










Учитель информатики

Калиниченко Сергей Владимирович

 

Дата рождения:

20 октября 1988 года

Место работы:

МОУ "Лобановская школа"

МОУ "Столбовская школа"

Образование:

Высшее, Мелитопольский Государственный Педагогический Университет имени

Б.Хмельницкого, 2011 г.

Специальность по диплому:

Информатика

Квалификация по диплому:

Инженер-программист

Диплом:

АР № 40120862

Преподаваемый предмет:

Информатика

Педагогический стаж:

3,5 года

Категория:

специалист

Контактная информация:

sergej.mgpu@mail.ru

 

 

 

 

Методические материалы

2 класс new
Скачать
5-9 классы new
Скачать
8 класс (Основы информатики)
Скачать
9 класс (стандарт)
Скачать
10 класс (стандарт)
Скачать
11 класс (стандарт)
Скачать
11 класс (академический)
Скачать
10-11 классы (профильный)
Скачать
Курс "Основы баз данных"
Скачать
Курс "Основы создания компьютерных презентаций"
Скачать
Курс "Основы компьютерной графики"
Скачать
Курс "Современные офисные информационные технологии"
Скачать
Курс "MS Excel в профильном обучении"
Скачать

2 класс new (русский)
Скачать
5 класс new (русский)
Скачать
5 клас new (українська)
Скачать
8 класс (Основы информатики) (русский)
Скачать
8 клас (Основи інформатики) (українська)
Скачать
9 класс (русский)
Скачать
9 клас (українська)
Скачать
10 клас (українська)
Скачать
10 класс (профиль ОАП) (русский)
Скачать
10 класс (профиль ИКТ) (русский)
Скачать
11 класс (русский)
Скачать
11 клас (українська)
Скачать
11 клас (академ) (українська)
Скачать
11 класс (профиль ОАП) (русский)
Скачать
11 класс (профиль ИКТ) (русский)
Скачать
Курс "Основи створення комп`ютерних презентацій" (українська)
Скачать
Курс "Основы компьютерной графики" (русский)
Скачать

 

 

Задания

Решения

program PIFAGOR;
uses crt;
var a,b:integer;
c,s:real;
begin
clrscr;
write('Введите значения катетов: ');
readln(a,b);
c:=sqrt(a*a+b*b);
s:=1/2*a*b;
write(c:0:3,' ',s:0:3);
readkey;
end.


program NUMBER1;
uses crt;
var a:integer;
begin
clrscr;
write('Введите число: ');
readln(a);
if a mod 3=0 then write('KRATNO 3')
else write('NOT KRATNO 3');
readkey;
end.


program TRIANGLE;

uses crt;

var a,b,c:integer;

begin

     clrscr;

     write('Введите длины сторон треугольника: ');

     readln(a,b,c);

     if (a+b>c)and(a+c>b)and(b+c>a) then write('Triangle can be formed')

     else write('Triangle can not be formed');

     readkey;

end.


program NUMBER2;

uses crt;

var n:longint;

    i,k:integer;

begin

     clrscr;

     write('Ввведите натуральное число: ');

     readln(n);

     while n<>0 do

           begin

                n:=n div 10;

                inc(k);

           end;

     write(k);

     readkey;

end.


program BINARY;

uses crt;

var mass:array[1..1000] of integer;

    n:longint;

    i,j:integer;

begin

     clrscr;

     write('Введите натуральное число: ');

     readln(n);

     i:=1;

     while n<>1 do

           begin

                mass[i]:=n mod 2;

                n:=n div 2;

                inc(i);

           end;

     mass[i]:=1;

     for j:=i downto 1 do write(mass[j]);

     readkey;

end.


program SORT1;

uses crt;

var mass:array[1..10000]of byte;

    n:longint;

    max,i,j:integer;

begin

     clrscr;

     write('Введите количество элементов массива: ');

     readln(n);

     for i:=1 to n do

         begin

              write('A[',i,']= ');

              readln(mass[i]);

         end;

     for j:=1 to n-1 do

         for i:=1 to n-j do

             if mass[i]>mass[i+1] then

                begin

                     max:=mass[i];

                     mass[i]:=mass[i+1];

                     mass[i+1]:=max;

                end;

     writeln;

     for i:=1 to n do write(mass[i],' ');

     readkey;

end.


program SEDPOINT;

uses crt;

label m1;

var mass:array[1..100,1..100] of byte;

    n,m:integer;

    i,j,max,min,min_j,max_i,temp:integer;

    rez:boolean;

begin

     clrscr;

     write('Введите размерность массива NxM: ');

     readln(n,m);

     for i:=1 to n do

         for j:=1 to m do

             begin

                  write('mass[',i,';',j,']= ');

                  readln(mass[i,j]);

             end;

     for i:=1 to n do

         begin

              for j:=1 to m do

                  begin

                       min:=mass[i,1];

                       if min >= mass[i,j] then

                          begin

                               min:=mass[i,j];

                               min_j:=j;

                               temp:=i;

                          end;

                  end;

              max:=mass[i,min_j];

              for j:=1 to n do

                  if max<=mass[j,min_j] then

                     begin

                          max:=mass[j,min_j];

                          max_i:=j;

                     end;

              if temp=max_i then

                 begin

                      rez:=true;

                      goto m1;

                 end;

         end;

     m1: if rez then write(mass[max_i,min_j],' ',max_i,' ',min_j)

         else write('NO');

     readkey;

end.

program IGRA;

uses crt;

var n,m:integer;

begin

     clrscr;

     write('Введите размеры доски NxM: ');

     readln(n,m);

     if n<m then

        if n mod 2= 0 then write('second')

        else write('first')

     else if m mod 2= 0 then write('second')

          else write('first');

     readkey;

end.


program SUMMA;

uses crt;

var i,j,k,s,sum:longint;

begin

     clrscr;

     write('Введите сумму цифр числа: ');

     readln(s);

     k:=1;

     i:=0;

     repeat

           sum:=0;

           while k <> 0 do

                 begin

                      j:=k mod 10;

                      k:=k div 10;

                      sum:=sum+j;

                 end;

           inc(i);

           k:=i;

     until sum = s;

     write(i-1);

     readkey;

end.


program NUMBER_TRAINGLE;

uses crt;

var i,n,j,sum:integer;

begin

     clrscr;

     write('Введите номер строки: ');

     readln(i);

     n:=(sqr(i)-i) div 2+1;

     sum:=0;

     for j:=n to n+i-1 do

         sum:=sum+j;

     write(sum);

     readkey;

end.


program LIFT;

uses crt;

const max_k=100;

      max_n=100;

var k,n:longint;

    i,j,razn:integer;

    sum,min,min_etaz:integer;

    mass:array[1..max_k,1..max_n] of longint;

    predp:array[1..max_k] of longint;

begin

     clrscr;

     {Ввод данных}

     write('Введите количестов этажей N и количество школьников K:');

     readln(n,k);

     writeln('Введите предпочтения школьников:');

     for i:=1 to k do

         begin

              write(i,'-й школьник: ');

              readln(predp[i]);

         end;

     {Вычисление недовольствия}

     for i:=1 to k do

         for j:=1 to n do

              begin

                   razn:=j-predp[i];

                   if razn=0 then mass[i,j]:=0

                   else if razn>0 then mass[i,j]:=razn

                        else mass[i,j]:=2*abs(razn);

              end;

     {Вывод неудовольствий на экран для проверки}

     for i:=1 to k do begin

         for j:=1 to n do

             write(mass[i,j],'  ');

         writeln;

     end;

     {Нахождение суммы неудовольствия для 1-го этажа}

     sum:=0;

     for i:=1 to k do sum:=sum+mass[i,1];

     min:=sum;

     {Определение минимального неудовольствия и нужного этажа}

     min_etaz:=1;

     for j:=1 to n do begin

nbsp;/span          sum:=0;

         for i:=1 to k do

             begin

                  sum:=sum+mass[i,j];

             end;

         if min>=sum then

            begin

                 min:=sum;

                 min_etaz:=j;

            end;

     end;

     write(min_etaz);

     readkey;

end.


program CLOCK;

uses crt;

type time=record

     h:integer;

     m:integer;

     end;

var t:time;

    smezw:integer;

    del_h,kol_del:integer;

    ugol:integer;

begin

     clrscr;

     write('Введите время на часах HH MM: ');

     readln(t.h,t.m);

     smezw:= round(t.m/12);

     del_h:= (t.h mod 12)*5+smezw;

     kol_del:=abs(t.m-del_h);

     if kol_del<30 then

        ugol:=kol_del*6

     else ugol:=(60-kol_del)*6;

     write(ugol,'.0');

     readkey;

end.


program WORDS;

uses crt;

var

   words:array [1..10] of string;

   n:integer;

   s:string;

   i,j,k,dl,kol:integer;

begin

     clrscr;

     write('Введите количество слов в последовательности: ');

     readln(n);

     for i:=1 to n do

         begin

              write(i,'-е слово: ');

              readln(words[i]);

         end;

     kol:=0;

     for i:=1 to n do

         begin

              k:=0;

              dl:=length(words[i]);

              s:=words[i];

              for j:=1 to dl-1 do

                  if abs((ord(s[j+1])-ord(s[j])))=1 then

                     inc(k);

              if k=dl-1 then inc(kol);

         end;

     write(kol);

     readkey;

end.

program NUMBER_TRAINGLES;

uses crt;

const n_max=50;

      m_max=99;

type mas=array[1..n_max,1..m_max] of longint;

     tr = record

        l:integer;

        p:integer;

        s:integer;

     end;

var

   koor_treug:array[1..1000]of tr;

   treug:mas;

   n,m,i,j,x,ii,jj,mm,sum:integer;

begin

     clrscr;

     write('Введите количество строк в треугольнике: ');

     readln (n);

     for i:=1 to n do

         begin

              m:=i*2-1;

              for j:=1 to m do

                  begin

                       write ('Элемент[',i,',',j,']=');

                       read(treug[i,j]);

                  end;

         end;

     write('Введите количество треугольников: ');

     read(x);

     for i:=1 to x do

         begin

              write('№ строки = ');

              read(koor_treug[i].l);

              write('№ элемента в стоке = ');

              read(koor_treug[i].p);

              write('Глубина = ');

              readln(koor_treug[i].s);

         end;

     for i:=1 to x do

         begin

              mm:=koor_treug[i].p;

              sum:=0;

              for ii:=koor_treug[i].l to koor_treug[i].s+koor_treug[i].l-1  do

                  begin

                       for jj:=koor_treug[i].p to mm do

                           sum:=sum+treug[ii,jj];

                       mm:=mm+2;

                  end;

              writeln(sum,' ');

         end;

     readkey;

end.

program SHIFR;

uses crt;

var n:integer;

    a,b,c,d:integer;

begin

     clrscr;

     write('Введите число: ');

     readln(n);

     a:=((n div 1000)+7)mod 10;

     b:=(((n div 100)mod 10)+7)mod 10;

     c:=(((n div 10) mod 10)+7)mod 10;

     d:=((n mod 10)+7)mod 10;

     write(c,d,a,b);

     readkey;

end.

program ROMB;

uses crt;

var i,j:integer;

    n,c,m,c1:integer;

begin

     clrscr;

     write('Количество строк: ');

     readln(n);

     c:=n div 2;

     c1:=c;

     m:=1;

     for i:=1 to c1 do

         begin

              for j:=c downto 1 do

                  write(' ');

              for j:=1 to m do

                  write('*');

              dec(c);

              m:=m+2;

              writeln;

         end;

     for i:=c1+1 downto 1 do

         begin

              for j:=1 to c do

                  write(' ');

              for j:=m downto 1 do

                  write('*');

              inc(c);

              m:=m-2;

              writeln;

         end;

    readkey;

end.

program NUMBER_PI;

uses crt;

var k,i:integer;

    pi:real;

begin

     clrscr;

     write('Введите количество слагаемых: ');

     readln(k);

     pi:=0;

     for i:=1 to k do

         if i mod 2 = 0 then pi:=pi-4/(2*i-1)

         else pi:=pi+4/(2*i-1);

     write(pi:0:9);

     readkey;

end.
program PROSTYE_CHISLA;

uses crt;

var n:integer;

    i,j:integer;

    k,kol,d:integer;

begin

     clrscr;

     write('Введите граничное число N: ');

     readln(n);

     kol:=0;

     for i:=2 to n do

         begin

              k:=0;

              for j:=2 to n do

                  if i mod j =0 then inc(k);

              if k=1 then inc(kol);

         end;

     for i:=1 to n do

         if (kol mod i=0)and(n mod i=0) then d:=i;

     write(kol div d,'/',n div d);

     readkey;

end.

program HOD_KONJA;

uses crt;

label m1;

const m_x:array[1..8] of integer = (-2,-1,1,2,2,1,-1,-2);

      m_y:array[1..8] of integer = (1,2,2,1,-1,-2,-2,-1);

var i,j:integer;

    mass:array[1..8,1..8]of integer;

    n,m,k1:integer;

    num:integer;

    full:boolean;

{Вывод шахматной доски}

procedure write_board;

begin

     for i:=1 to n do

         begin

              for j:=1 to m do

                  write(mass[i,j],' ');

              writeln;

         end;

end;

{ВЫполнение хода}

procedure hod(i,j,k:integer);

var kol:integer;

begin

     if mass[i,j]=0 then

        begin

             mass[i,j]:=k;

             k1:=k;

             {Сделано ли максимальное количество ходов}

             if k=n*m then

                begin

                     full:=true;

                end

             else

                 {Проверяем доступность хода и делаем его}

                 for kol:=1 to 8 do

                     if ((i+m_x[kol]>=1)and (i+m_x[kol]<=n))

                     and ((j+m_y[kol]>=1)and (j+m_y[kol]<=m)) then

                        hod(i+m_x[kol],j+m_y[kol],k+1);

             {Обнуление после возврата хода}

             if not full then mass[i,j]:=0;

        end;

end;

begin

     clrscr;

     write('Введите размеры m,n: ');

     readln(n,m);

     hod(1,1,1);

     if k1<>n*m then

        begin

             writeln('NO');

             write(k1-1);

        end

     else begin

          write_board;

          {Вывод координат хода}

          num:=2;

          while num<>n*m do

                begin

                     for i:=1 to n do

                         for j:=1 to m do

                             if mass[i,j]=num then writeln(i,' ',j);

                     inc(num);

                end;

          end;

     readkey;

end.

 

Результаты
 
 
Протоколы ІІ этапа Всеукраинской олимпиады по информатике в 2013/2014 учебном году (от 30.11.2013) скачать...

 

Задания

 

Решения

Задание 1

Задание 2

Задание 3

Задание 4

Задание 1

Задание 2

Задание 3

Задание 4

Задание 1

Задание 2

Задание 3

Задание 4

 

Результаты
 
 
Протоколы ІІ этапа Всеукраинской олимпиады по информационным технологиям в 2013/2014 учебном году (от 14.12.2013) скачать...
9 класс
Урок № 1. Информация и сообщения. Информационные процессы
Методические рекомендации преподавания информатики во 2-х классах в 2013/14 учебном году (скачать...[*.doc 74 Кб])

 

Методические рекомендации преподавания информатики в 5-х классах в 2013/14 учебном году (скачать...[*.pdf 348 Кб])

 

Методические рекомендации преподавания информатики в 2013/14 учебном году (скачать...[*.doc 54 Кб])
Среда программирования TurboPascal (скачать...[*.rar, 600 Кб] )
Практическая работа № 1 по теме "Создание и редактирование программ в среде программирования Турбо Паскаль" (скачать... [*. doc, 35 Кб] )

 

Практическая работа № 2 по теме "Продолжение работы в среде программирования Турбо Паскаль. Использование операций div и mod" (скачать... [*. doc, 47 Кб] )

 

Практическая работа № 3 по теме "Создание и отладка программ с использованием условного оператора в среде программирования Turbo Pascal" (скачать...  [*. rar, 31,5 Кб] )

Интерактивные разработанные программы